home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / prog / atari / m2 / cat3src / cat / instrsc.d < prev    next >
Text File  |  1997-10-26  |  1KB  |  53 lines
  1. DEFINITION MODULE InstRsc;
  2.  
  3. FROM SYSTEM IMPORT ADDRESS;
  4.  
  5. FROM GrafBase   IMPORT Rectangle;
  6.      
  7. FROM MagicAES   IMPORT
  8.      OBJECT, BITBLK, ICONBLK, TEDINFO;
  9.  
  10. FROM Strings    IMPORT String;
  11.  
  12. FROM Lists      IMPORT List;
  13.  
  14. (* Versionsnummer *)
  15. CONST   xVersion = '1.01';
  16.         version = 'CAT 3.0 Installer V '+xVersion+0c;
  17.  
  18. (* GEM-Handling: consts and types *)
  19. CONST   Root            = 0;
  20.         MaxDepth        = 999;
  21.  
  22. TYPE    PtrObjTree      = POINTER TO ARRAY [0..MaxCard] OF OBJECT;
  23.         MaxStr          = ARRAY [0..255] OF CHAR;
  24.         PtrMaxStr       = POINTER TO MaxStr;
  25.         PtrBitBlock     = POINTER TO BITBLK;
  26.         PtrIconBlock    = POINTER TO ICONBLK;
  27.         PtrTedInfo      = POINTER TO TEDINFO;
  28.         TwoRects        = ARRAY[0..1] OF Rectangle;
  29.  
  30. VAR     
  31.         infoBox,
  32.         pathbox,
  33.         helppath,
  34.  
  35.         menu           : PtrObjTree;
  36.  
  37.         deskSize       : Rectangle;
  38.         
  39.         homePath       : MaxStr;
  40.  
  41. PROCEDURE InitResource (VAR resourceName : ARRAY OF CHAR) : BOOLEAN;
  42.   
  43. PROCEDURE doInfo();
  44.  
  45. PROCEDURE ClrRsrc();
  46.  
  47. PROCEDURE doConfig(REF newPath: ARRAY OF CHAR; VAR newDataPath: ARRAY OF CHAR);
  48.  
  49. PROCEDURE GetAndCreatePath (VAR path, name : ARRAY OF CHAR; 
  50.                             REF title: ARRAY OF CHAR): BOOLEAN;
  51.  
  52. END InstRsc.
  53.